home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 February / Ahoy_Magazine_87-02_1987_Double_L.d64 / Dungeon Maker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  180 lines
  1. 10 rem donjons maker
  2. 20 poke56334,peek(56334)and254
  3. 30 poke1,peek(1)and251
  4. 40 fori=0to511:pokei+30720,peek(i+53248):next
  5. 50 poke1,peek(1)or4
  6. 60 poke56334,peek(56334)or1
  7. 70 fori=0to151
  8. 80 readd:pokei+31240,d
  9. 90 next
  10. 100 v1$="    [157][157][157][157]    [157][157][157][157]    [145][145]"
  11. 110 v2$="[193][193][193][193][157][157][157][157][193][193][193][193][157][157][157][157][193][193][193][193][145][145]"
  12. 120 v3$="[193][193][193][194][157][157][157][157][193][194]  [157][157][157][157][194]   [145][145]"
  13. 130 v4$="[197][193][193][193][157][157][157][157]  [197][193][157][157][157][157]   [197][145][145]"
  14. 140 v5$="[196]   [157][157][157][157][193][196]  [157][157][157][157][193][193][193][196][145][145]"
  15. 150 v6$="   [195][157][157][157][157]  [195][193][157][157][157][157][195][193][193][193][145][145]"
  16. 160 block=16384
  17. 170 poke53280,0:poke53281,0:poke646,0
  18. 200 poke56578,peek(56578)or3
  19. 210 poke56576,(peek(56576)and252)or2
  20. 220 poke53272,(peek(53272)and240)or14
  21. 300 fori=2 to 13
  22. 310 poke53272,(peek(53272)and15)ori*16
  23. 320 m=block+1024*i
  24. 330 poke648,int(m/256)
  25. 340 print"[147]"
  26. 350 fora=1to8:readd$
  27. 360 forb=1to10
  28. 370 ifmid$(d$,b,1)="a"thenprint v3$;
  29. 380 ifmid$(d$,b,1)="b"thenprint v4$;
  30. 390 ifmid$(d$,b,1)="c"thenprint v5$;
  31. 400 ifmid$(d$,b,1)="d"thenprint v6$;
  32. 410 ifmid$(d$,b,1)="e"thenprint v5$;
  33. 420 ifmid$(d$,b,1)=" "thenprint v1$;
  34. 430 ifmid$(d$,b,1)="."thenprint v2$;
  35. 440 next b:print"";
  36. 450 next a
  37. 460 next i
  38. 500 sl=0:sh=68:el=168:eh=122
  39. 510 open 8,8,8,"dj"
  40. 520 poke 251,sl
  41. 530 poke 252,sh
  42. 540 poke 780,251
  43. 550 poke 781,el
  44. 560 poke 782,eh
  45. 570 sys 65496
  46. 580 goto 2000
  47. 600 data 254,254,254,0,239,239,239,0
  48. 610 data 254,252,248,0,224,192,128,0
  49. 620 data 0,2,6,0,15,31,63,0
  50. 630 data 128,192,224,0,232,236,238,0
  51. 640 data 126,62,30,0,15,7,3,0
  52. 650 data 152,216,126,27,25,108,199,195
  53. 660 data 24,126,219,185,120,216,120,56
  54. 670 data 24,24,126,219,152,60,102,96
  55. 680 data 24,24,126,219,25,60,102,6
  56. 690 data 25,27,126,216,152,54,227,195
  57. 700 data 24,126,219,157,30,27,30,28
  58. 710 data 0,0,0,0,255,0,255,255
  59. 720 data 0,0,0,0,0,0,0,255
  60. 730 data 60,231,0,0,0,0,0,0
  61. 740 data 0,0,0,60,231,0,0,0
  62. 750 data 24,24,24,126,24,24,0,0
  63. 760 data 0,0,24,24,126,24,24,24
  64. 770 data 0,12,12,255,12,12,0,0
  65. 780 data 0,48,48,255,48,48,0,0
  66. 799 :
  67. 800 data ".........."
  68. 810 data ".a b....a "
  69. 820 data ".    b.ad."
  70. 830 data ".c d.c  .."
  71. 840 data ".. ....cb."
  72. 850 data "..cb.... ."
  73. 860 data "... ...ad."
  74. 870 data "... ... .."
  75. 880 :
  76. 900 data ".........."
  77. 910 data " b....a  b"
  78. 920 data ". b..a ..c"
  79. 930 data ". c  d ..."
  80. 940 data ".cb..ad..."
  81. 950 data ".. .. ...."
  82. 960 data "..cbad...."
  83. 970 data "...cd....."
  84. 980 :
  85. 1000 data".........."
  86. 1010 data".........."
  87. 1020 data"b...ab...."
  88. 1030 data"cb.adcb.a "
  89. 1040 data".c dabc d."
  90. 1050 data"...a  b.a "
  91. 1060 data".a      d."
  92. 1070 data". ........"
  93. 1080 :
  94. 1100 data".........."
  95. 1110 data"......a b."
  96. 1120 data"..a      ."
  97. 1130 data"  d. .c d."
  98. 1140 data"....... .."
  99. 1150 data"       d.."
  100. 1160 data".........."
  101. 1170 data".........."
  102. 1180 :
  103. 1200 data"... ...cb."
  104. 1210 data"... .... ."
  105. 1220 data"... ...ad."
  106. 1230 data"... ... .."
  107. 1240 data"...cb..cba"
  108. 1250 data".aba b..cd"
  109. 1260 data". cd.c b.."
  110. 1270 data". ..... .."
  111. 1280 :
  112. 1300 data".........."
  113. 1310 data".....a    "
  114. 1320 data"....ad...."
  115. 1330 data".... ....."
  116. 1340 data"          "
  117. 1350 data".... ....."
  118. 1360 data"....    .."
  119. 1370 data".... .. .."
  120. 1380 :
  121. 1400 data"ad........"
  122. 1410 data"d.... ...."
  123. 1420 data"..... ...a"
  124. 1430 data"..... .a d"
  125. 1440 data"   .   d.."
  126. 1450 data"..... ...."
  127. 1460 data"..... ...."
  128. 1470 data"..... ...."
  129. 1480 :
  130. 1500 data".........."
  131. 1510 data".a  b....."
  132. 1520 data" d..cb.a ."
  133. 1530 data".....c d ."
  134. 1540 data".....a b ."
  135. 1550 data"....ad.c ."
  136. 1560 data"...ad....."
  137. 1570 data"... ......"
  138. 1580 :
  139. 1600 data". ....ad.."
  140. 1610 data".c    d..."
  141. 1620 data".. ......."
  142. 1630 data".. ....a  "
  143. 1640 data".a b..ad.."
  144. 1650 data".     d..."
  145. 1660 data".c d......"
  146. 1670 data".........."
  147. 1680 :
  148. 1700 data".... .. .."
  149. 1710 data"...ad..cb."
  150. 1720 data"..ad....cb"
  151. 1730 data"  d..a b.c"
  152. 1740 data"....ad.cb."
  153. 1750 data".ab. .a.c "
  154. 1760 data".      b.."
  155. 1770 data".........."
  156. 1780 :
  157. 1800 data"....ad...."
  158. 1810 data".... ....."
  159. 1820 data"..a d....."
  160. 1830 data"  d...a   "
  161. 1840 data"...... ..."
  162. 1850 data"       b.."
  163. 1860 data".......c  "
  164. 1870 data".........."
  165. 1880 :
  166. 1900 data"..ad......"
  167. 1910 data".ad.a b..."
  168. 1920 data". .ad.cb.."
  169. 1930 data" dad... .."
  170. 1940 data".ad...a b."
  171. 1950 data"ad....   ."
  172. 1960 data"d.....c d."
  173. 1970 data".........."
  174. 2000 poke56578,peek(56578)or3
  175. 2010 poke56576,(peek(56576)and252)or3
  176. 2020 poke53272,(peek(53272)and240)or4
  177. 2030 poke53272,(peek(53272)and15)or16
  178. 2040 poke 648,4
  179. 2050 print"[147]save completed"
  180.